home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD024b.dsk / ADD FLASH CARDS DOC.bas < prev    next >
BASIC Source File  |  2003-06-12  |  827b  |  23 lines
  1. 10 D$ =  CHR$(4)
  2. 15  DIM ST$(100)
  3. 20  ONERR  GOTO 100
  4. 30  PRINT D$"OPEN FC.TEXT"
  5. 40  PRINT D$"READ FC.TEXT"
  6. 50 I = 0
  7. 60 I = I +1
  8. 70  INPUT ST$(I)
  9. 80  GOTO 60
  10. 100  PRINT D$"CLOSE"
  11. 110  HOME : VTAB 21: INVERSE : PRINT "USE <-,-> TOSCROLL ": PRINT "<ESC> TO START FLASH CARDS": NORMAL : POKE 35,17
  12. 120  VTAB 1
  13. 130  FOR M = 1 TO 16
  14. 140  PRINT ST$(M): NEXT 
  15. 150  PRINT ST$(17);
  16. 155 J = 17
  17. 160  GET A$
  18. 170  IF A$ =  CHR$(21)  THEN J = J +1: IF J >I  THEN J = I: PRINT  CHR$(7);: GOTO 160
  19. 180  IF A$ =  CHR$(21)  THEN  PRINT : PRINT ST$(J);: GOTO 160
  20. 190  IF A$ =  CHR$(27)  THEN  POKE 35,24: HOME : PRINT : PRINT "<CTRL-D>RUN FLASH.CARDS"
  21. 200  IF A$ =  CHR$(8)  THEN J = J -1: IF J <17  THEN J = 17
  22. 210  IF A$ =  CHR$(8)  THEN  HOME : FOR L = J -16 TO J -1: PRINT ST$(L): NEXT : PRINT ST$(J);: GOTO 160
  23. 220  PRINT  CHR$(7);: GOTO 160